home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / dev / misc / BoulderEngine.lha / source / geras / BOULDER2.C < prev    next >
Encoding:
C/C++ Source or Header  |  1998-03-30  |  2.4 KB  |  76 lines
  1. /*  ===========================================================
  2.     ==                                                       ==
  3.     ==   BIG INTRO FOR BOULDER DASH       ©1993-94-95        ==
  4.     ==                                             v.0.2     ==
  5.     =========LINK IN OBJECT MODULE============================= */
  6. #include "INCLUDE:exec/types.h"
  7. scena(rstport)
  8. LONG rstport;
  9. {
  10. STATIC long h[]={
  11. 0,0,20,20,60,20,80,40,80,60,70,70,80,80,80,100,60,120,20,120,20,20,0,0,
  12. 120,20,140,20,160,40,160,100,140,120,120,120,100,100,100,40,120,20,0,0,
  13. 180,20,200,20,200,100,220,100,220,20,240,20,240,100,220,120,200,120,180,
  14. 100,180,20,0,0,
  15. 260,20,280,20,280,100,320,100,320,120,260,120,260,20,0,0,
  16. 340,20,380,20,400,40,400,100,380,120,340,120,340,20,0,0,
  17. 360,40,380,60,380,80,360,100,
  18. 360,40,0,0,
  19. 420,20,480,20,480,40,440,40,440,60,460,60,460,80,440,80,440,100,480,100,
  20. 480,120,420,120,420,20,0,0,
  21. 500,20,540,20,560,40,560,60,540,80,560,120,540,120,520,80,520,120,500,120,
  22. 500,20,0,0,
  23. 120,140,160,140,180,160,180,220,160,240,120,240,120,140,0,0,
  24. 140,160,160,180,
  25. 160,200,140,220,140,160,0,0,
  26. 200,140,260,140,260,240,240,240,240,200,220,200,220,240,
  27. 200,240,200,140,0,0,
  28. 280,140,340,140,340,160,300,160,300,180,340,180,340,240,
  29. 280,240,280,220,320,220,320,200,280,200,280,140,0,0,
  30. 360,140,380,140,380,180,400,180,400,140,420,140,
  31. 420,240,400,240,400,200,380,200,380,240,360,240,360,140,0,0,
  32. 480,200,500,140,540,140,480,200,0,0,
  33. 120,40,140,40,140,100,120,100,120,40,0,0,
  34. 40,40,60,40,60,60,40,60,40,40,0,0,40,80,60,80,60,100,40,100,40,80,0,0,
  35. 520,40,540,40,540,60,520,60,520,40,0,0,220,160,240,160,240,180,220,180,
  36. 220,160,
  37. -1,-1,-1,-1};
  38. STATIC char t[]=" BOULDER DASH 1.X by SAVELSOFTWARE. Internal version(03.13)";
  39. LONG n,c,x,y,i,j,il=59;
  40. c=2;
  41. /* pasiruosk(); */
  42. SetRast(rstport,0L);
  43. for(n=0;n<730;n+=3) {
  44. SetAPen(rstport,c);
  45. Move(rstport,n,0L); Draw(rstport,n,254L);
  46. Move(rstport,n+1,0L); Draw(rstport,n+1,254L);
  47. c++; if(c==8) {c=2;}
  48.  }
  49. for(n=0;n<254; n+=2) {
  50.  SetAPen(rstport,c);
  51.  Move(rstport,0L,n); Draw(rstport,730L,n);
  52.  c++; if(c==8) {c=2;}
  53. }
  54. for(i=0;i<3;i++)
  55.  {
  56.   n=0; c=0; j=0;
  57.   SetAPen(rstport,1L);
  58.   while(j!=-1)
  59.    {
  60.     x=h[n]; y=h[n+1]; j=x;
  61.     if(x==0) {c=0;}
  62.     x+=i; y+=i;
  63.     if(j>0)
  64.      {
  65.       if (c) {Draw(rstport,x+50,y);}
  66.       if (!c) {Move(rstport,x+50,y); c=1;}
  67.      }
  68.     n++; n++;
  69.    }
  70.   DrawEllipse(rstport,510L+i,220L+i,13L,9L);
  71.  }
  72. SetAPen(rstport,1L); Move(rstport,80L,254L);
  73. Text(rstport,t,il);
  74. }
  75.  
  76.